#!
@stack = qw(abc def ghi jkl mno pqr stu vwx yz);
print "stack:\n",join("\n",@stack),"\n";
$ret = shift @stack;
print "return:$ret\n";
print "stack:\n",join("\n",@stack),"\n";